#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $url = shift || "http://www.google.com";
my $content = get($url);

print $content;

exit 0;
